From: Romain Francoise <romain@orebokech.com>
Date: Wed, 31 Jan 2007 13:20:52 +0000 (+0000)
Subject: Delete extra copy of `comint-copy-old-input' added in previous change to
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~2505
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2683cc72889901d8392f7ac0e3fd52d0b53cf99a;p=emacs.git

Delete extra copy of `comint-copy-old-input' added in previous change to
this file.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2a6ae5d662..a067b92e284 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-31  Romain Francoise  <romain@orebokech.com>
+
+	* comint.el: Delete extra copy of `comint-copy-old-input' added in
+	previous change to this file.
+
 2007-01-31  Jason Rumney  <jasonr@gnu.org>
 
 	* files.el (magic-mode-alist): Use image-mode-maybe rather than
diff --git a/lisp/comint.el b/lisp/comint.el
index 2653728fa4e..eeb3e720d06 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1920,17 +1920,6 @@ Calls `comint-get-old-input' to get old input."
       (goto-char (process-mark process))
       (insert input))))
 
-(defun comint-copy-old-input ()
-  "Insert after prompt old input at point as new input to be edited.
-Calls `comint-get-old-input' to get old input."
-  (interactive)
-  (let ((input (funcall comint-get-old-input))
-	(process (get-buffer-process (current-buffer))))
-    (if (not process)
-	(error "Current buffer has no process")
-      (goto-char (process-mark process))
-      (insert input))))
-
 (defun comint-skip-prompt ()
   "Skip past the text matching regexp `comint-prompt-regexp'.
 If this takes us past the end of the current line, don't skip at all."